clear all
use "Austria Admin Data WM2010.dta"

sum age_app, detail

scatter n_subsidies dater if month<=9 & year==2010 & status==3, connect(l) msize(tiny) lcolor(black) mcolor(black) ytitle("Number of paid subsidies") xtitle("") graphregion(color(white))

graph export "WMR.eps", as(eps) fontface("Baskerville Old Face") replace




line  age age_app, sort xtitle("Age of Recycled Appliance") ytitle("") lcolor(black) graphregion(color(white)) xlabel(0 (10) 50)

graph export "CumulAgeATWM.eps", as(eps) fontface("Baskerville Old Face") replace
